unit DemoDM_U;

interface

uses
  SysUtils, Classes, DB, AcroMultiDD,
  AcroMultiDDReader,AcroMultiUtils,AcroMultiScreen,acroMultiLib;

type
  TMultiDM = class(TDataModule)
    AcroMultiStreamDD_GUI: TAcroMultiStreamDD;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure AcroMultiStreamDD_GUISelfEventsBeforeBuildDD(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MultiDM: TMultiDM;

implementation

{$R *.dfm}

procedure TMultiDM.AcroMultiStreamDD_GUISelfEventsBeforeBuildDD(
  Sender: TObject);
begin
//  AcroMultiStreamDD_GUI.DataList.HashSize:=GetMinPrime(1024*40);
end;

procedure TMultiDM.DataModuleCreate(Sender: TObject);
begin
//  AcroMultiStreamDD_GUI.Dictionary.Stream.Clear;
//  AcroMultiStreamDD_GUI.ImportFromFile('D:\wxh\Acroprise\DD\CONTENTDD.lng',nil,false,false);
//  AcroMultiStreamDD_GUI.ImportFromDD(AcroMultiFileDD1,false);
  AcroMultiScreen.ScreenStorage.DefaultReplaceOption.DDName:=AcroMultiStreamDD_GUI.DDName;
  AcroMultiScreen.ScreenStorage.DefaultReplaceOption.SystemCulture:=true;
  AcroMultiScreen.ScreenStorage.DefaultReplaceOption.SeqNo:='0';
  AcroMultiScreen.ScreenStorage.Hook;
end;

procedure TMultiDM.DataModuleDestroy(Sender: TObject);
begin
  AcroMultiScreen.ScreenStorage.UnHook;
end;

end.
